﻿Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Data
Imports System.Data.SqlClient
Imports DoAnQuanLyBanHang1065043_1065007.DoAnQuanLyBanHang.General

Namespace DoAnQuanLyBanHang.DTO
    Public Class DoanhThuData
        Private m_DoanhThuData As New DataService()

        Public Function LayDoanhThu() As DataTable
            Dim cmd As New SqlCommand("SELECT * FROM Doanh_Thu")
            m_DoanhThuData.Load(cmd)
            Return m_DoanhThuData
        End Function
        Public Function LayDSDoanhThuTheoThang(thang As Integer, nam As Integer) As DataTable
            Dim cmd As New SqlCommand("SELECT MH.MaMH, DT.[Mã Mặt Hàng], DT.[Tên Mặt Hàng], DT.Tháng, DT.Năm, DT.[Tổng Nhập], DT.[Tổng Xuất] FROM Doanh_Thu DT INNER JOIN Mat_Hang MH ON MH.MaMH = DT.[Mã Mặt Hàng] AND MH.TenMH = DT.[Tên Mặt Hàng] WHERE DT.Tháng = @Tháng AND DT.Năm = @Năm")
            cmd.Parameters.Add("Tháng", SqlDbType.Int).Value = thang
            cmd.Parameters.Add("Năm", SqlDbType.Int).Value = nam
            m_DoanhThuData.Load(cmd)
            Return m_DoanhThuData
        End Function
    End Class
End Namespace

